
 
 V a r i a b l e   N u m e r i c   S l o t _ A n a l o g B u t   =   1 
 
 
 
 L a b e l   R e a d B u t t o n s W i t h A D C 
 
 	 V a r i a b l e   N u m e r i c   C B 1 
 
 	 F o r   v 1   =   1   T o   I n f i n i t y 
 
 	 	 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   D o u b l e   c h e c k 
 
 	 	 C B 1   =   S l o t ( S l o t _ A n a l o g B u t ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 	 I f   A b s ( S l o t ( S l o t _ A n a l o g B u t )   -   C B 1 )   >   1 0 
 
 	 	 	 C B 1   =   9 9 9 9 9 
 
 	 	 E n d I f 
 
 	 	 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T e s t   v a l u e s 
 
 	 	 S e l e c t   T r u e 
 
 	 	 	 C a s e   C B 1   <   1 6 
 
 	 	 	 	 Y e l l o w 
 
 	 	 	 C a s e   C B 1   <   5 5 
 
 	 	 	 	 B l u e 
 
 	 	 	 C a s e   C B 1   <   1 2 0 
 
 	 	 	 	 G r e e n 
 
 	 	 	 C a s e   C B 1   <   1 9 0 
 
 	 	 	 	 R e d 
 
 	 	 	 C a s e   C B 1   <   5 0 0 
 
 	 	 	 	 W h i t e 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   Y e l l o w 
 
 	 P r i n t   " Y e l l o w " 
 
 	 B e e p   4 4 0   5 0 
 
 R e t u r n 
 
 L a b e l   B l u e 
 
 	 P r i n t   " B l u e " 
 
 	 B e e p   6 6 0   5 0 
 
 R e t u r n 
 
 L a b e l   G r e e n 
 
 	 P r i n t   " G r e e n " 
 
 	 B e e p   8 8 0   5 0 
 
 R e t u r n 
 
 L a b e l   R e d 
 
 	 P r i n t   " R e d " 
 
 	 B e e p   1 3 2 0   5 0 
 
 R e t u r n 
 
 L a b e l   W h i t e 
 
 	 P r i n t   " W h i t e " 
 
 	 B e e p   1 6 6 0   5 0 
 
 R e t u r n 
 
 
 
 
 
 